Delphi 5 for Professionals/DELPHI5.iso/AddOns/Components/InstallMaster 7.03/Devfulldemo.exe/file0193.bin

Wise script | 1999-04-26 | 3.3 KB | 155 lines

Document Type: WSE
item: Global
  Version=5.0
  Title=Searching for Files Sample
  Flags=00000100
  Split=1420
  Languages=65 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  Copy Default=1
  Japanese Font Name=MS Gothic
  Japanese Font Size=10
  Start Gradient=0 0 255
  End Gradient=0 0 0
  Windows Flags=00000000000000010000110000001000
  Message Font=MS Sans Serif
  Font Size=8
  Disk Filename=SETUP
  Patch Flags=0000000000000001
  Patch Threshold=85
  Patch Memory=4000
end
item: Remark
end
item: Remark
  Text=     This sample demonstrates the usage of the Search for File and
end
item: Remark
  Text=     Find File in Path script items.
end
item: Remark
end
item: Remark
  Text=     First, search for a file with a given name on all local drives.
end
item: Remark
end
item: Search for File
  Variable=WISE_PATH
  Pathname List=WISE.EXE
  Default=<not found>
  Description=Searching for WISE.EXE, Please Wait...
end
item: Display Message
  Title=WISE.EXE Pathname
  Text=The pathname for the first occurance of WISE.EXE is: %WISE_PATH%.
end
item: Remark
end
item: Remark
  Text=     Next, search for the same file but include network drives. In addition,
end
item: Remark
  Text=     only search three directories deep.
end
item: Remark
end
item: Search for File
  Variable=WISE_PATH
  Pathname List=WISE.EXE
  Default=<not found>
  Description=Searching for WISE.EXE, Please Wait...
  Flags=00011100
end
item: Display Message
  Title=WISE.EXE Pathname
  Text=The pathname for the first occurance of WISE.EXE is: %WISE_PATH%.
end
item: Remark
end
item: Remark
  Text=     Search for SCANDISK.EXE in the currently defined PATH.
end
item: Remark
end
item: Find File in Path
  Variable=SCAN_PATH
  Pathname List=SCANDISK.EXE
  Default=<not found>
end
item: Display Message
  Title=WISE.EXE Pathname
  Text=The pathname for the first occurance of WISE.EXE is: %WISE_PATH%.
end
item: Remark
end
item: Remark
  Text=     Search for SCANDISK.EXE in the Windows, System, and Temporary
end
item: Remark
  Text=     directories.
end
item: Remark
end
item: Find File in Path
  Variable=SCAN_PATH
  Pathname List=SCANDISK.EXE
  Default=<not found>
  Search Directories=%WIN%;%SYS%;%SYS32%;%TEMP%
end
item: Display Message
  Title=WISE.EXE Pathname
  Text=The pathname for the first occurance of WISE.EXE is: %SCAN_PATH%.
end
item: Remark
end
item: Remark
  Text=     Search for application that is associated with the .WSE file extension.
end
item: Remark
end
item: Get Registry Key Value
  Variable=EXT_VALUE
  Key=.wse\shell\command\open
end
item: If/While Statement
  Variable=EXT_VALUE
end
item: Get Registry Key Value
  Variable=EXT_VALUE
  Key=.wse
end
item: If/While Statement
  Variable=EXT_VALUE
  Flags=00000001
end
item: Get Registry Key Value
  Variable=EXT_VALUE
  Key=%EXT_VALUE%\shell\open\command
end
item: End Block
end
item: End Block
end
item: If/While Statement
  Variable=EXT_VALUE
  Flags=00000001
end
item: Parse String
  Source=%EXT_VALUE%
  Pattern=
  Variable1=EXT_VALUE
end
item: Set Variable
  Variable=EXT_VALUE
  Value=%EXT_VALUE%
  Flags=00010000
end
item: End Block
end
item: Display Message
  Title=WSE Application Pathname
  Text=The pathname for the application associated with the .WSE file extension is:
  Text=
  Text=%EXT_VALUE%.
end